home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / amiga-internet-seiten / magazin / a03-97 / listing1 < prev    next >
Text File  |  1997-03-21  |  1KB  |  31 lines
  1. ; Demonstration der while-Schleife, ©1996 Marcel Bennicke
  2. ; ein Menu mit Radiobuttons
  3.  
  4. (while  (                   ; ein ganzer Block als Bedingung
  5.       (set #auswahl
  6.         (askchoice
  7.           (prompt "Bitte wählen Sie")
  8.           (help "Noch einmal: Ihre Wahl, bitte!")
  9.           (choices "Vorspeise" "Hauptgang" "Dessert" "Bin satt")
  10.           (default 3)
  11.         )
  12.       )
  13.       (<> #auswahl 3) ; der letzte Ausdruck eines Blocks
  14.                       ; bestimmt seinen Wert. Diese Zeile ist
  15.                       ; also die eigentliche Bedingung.
  16.     ) ; Ende des Bedingungsblocks
  17.   
  18.   ; Im Rumpf nur die message-Anweisung. Sie verkettet alle
  19.   ; ihr übergebenen Strings miteinander
  20.   (message         
  21.     ; select liefert einen der 3 Strings zurück
  22.     (select #auswahl "Vorspeise" "Hauptgang" "Dessert") 
  23.     " gewählt"              ; " gewält" noch anhängen
  24.   ) ; Ende message
  25. ) ; Ende while
  26.  
  27. (message "\n\n\nDie Mitarbeiter des Cybercaffees hoffen, daß "
  28.      "Sie einen angenehmen Aufenthalt hatten.")
  29.  
  30. (exit (quiet))          ; verhindet Standardmeldung am Ende
  31.